home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / comms / other / cim_r32 / stuff / scripts / arexx / callsign.rexx next >
OS/2 REXX Batch file  |  1999-12-06  |  2KB  |  72 lines
  1.  
  2.  
  3.  
  4. /* 
  5.  
  6.  
  7.    Name:            CallSign.rexx
  8.    Version:         $VER: CallSign_rexx 1.0 (30.11.1999)
  9.    Author:          Jan-Erik Tervo
  10.    
  11.    Description:     Will change Caller Type to 'FAX' _if_ received Ring string is 'RING 1'.
  12.                     
  13.                     Change 'RING 1' to your corresponding fax CallSign RING.
  14.                     
  15.                     If you don't have CallSign feature connected to your phone line then
  16.                     you may want to change 'RING 1' to 'RING' and change Type example
  17.                     to Known.
  18.                     
  19.                     Feel free to modify this script to suite your needs.
  20.                     
  21.    
  22.    
  23.    Requires:        AOS 3 or newer, ARexx, CIM r32 or better with ARexx Port enabled
  24.  
  25. */
  26.  
  27.  
  28.  
  29. OPTIONS RESULTS
  30.  
  31. ADDRESS COMMAND 'run >NIL: RequestChoice "CIM" "CallSign_rexx executing.." "OK"'
  32.  
  33. ADDRESS CIM
  34.  
  35.      DEVICE_OCP
  36.      
  37.      
  38.  
  39.      IF RC=5 THEN DO
  40.      
  41.                     /* Incoming call is going on, so we will continue. */
  42.  
  43.                     /* Lets get the received RING string.. */
  44.           
  45.                     RECEIVED_RINGSTR
  46.            
  47.                     /* change the Type IF correct RING-type was received.
  48.                        In this example we are looking for "RING 1" */
  49.                     
  50.                     IF RESULT="RING 1" THEN DO
  51.                     
  52.                                    SET_TYPE "FAX"
  53.                     
  54.                                    /* If we want to execute the new Type script,
  55.                                       a script execution reset must be done */
  56.                     
  57.                                    SCRIPT_EXERESET
  58.                                    
  59.                                    /* If FAX script configuration is done and
  60.                                       valid at Settings/Scripts/, then it will be
  61.                                       executed shortly. */
  62.                                       
  63.                                    ADDRESS COMMAND 'run >NIL: RequestChoice "CIM" "CallSign_rexx Changed Type to FAX" "OK"'
  64.  
  65.                     END
  66.           
  67.              
  68.  
  69.      END
  70.      
  71.      
  72.